www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_E_htm_danartc.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=../../inc/ND_class_function.asp--> <!--#include file=inc_lanmu_ble.asp--> <style type="text/css"> <!-- .STYLE2 {color: #FFFFFF; font-weight: bold; } --> </style> <% sttstrr="webname_settings" if cstr(request("isqiye")&"")="1" then sttstrr="webname_settings_qiye" end if '"&sttstrr&" biao3="[ND_sys]" set rs22d=server.CreateObject("adodb.recordset") rs22d.open "select top 1 * from "&biao3&" where type='"&sttstrr&"'",conn,1,1 ddd1d=rs22d("data") dddd12d=split(ddd1d,"|") hhhta=cstr(dddd12d(4)) hhhtax=cstr(dddd12d(5)) htm_ext_ming=mid(hhhtax,2,len(hhhtax)) if clng(hhhta)<>1 then %> <br /><br /> 全站生成HTML静态功能未被启用,请先在 设置菜单里的基本设置里开启全站生成HTML静态功能再进入本页 <script language="javascript"> alert("全站生成HTML静态功能未被启用,请先在 设置菜单里的基本设置里开启全站生成HTML静态功能再进入本页"); </script> <% response.end end if %> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 401px;width:730px"> <form action="D_E_do_htm_danartc.asp" method="post" target="_self" id="myform" name="myform"> <table height="208" width=703 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px"> <tr> <td height="94" colspan="3"> <table height="148" width=705 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999"> <tr> <td width="62" height="30" align="center" class="adminth"><p class="STYLE2"> </p> </td> <td width="643" height="30" align="center" class="adminth"><p class="STYLE2">生成列表式单篇文章的htm页</p> </td> </tr> <% biao="[ND_prod_class]" sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_tabe&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),4)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <tr bgcolor="#EDF8FE"> <td width="61" height="67" align="center" bgcolor="#CCCCCC"> </td> <td width="640">当前模板里的当前频道里,url地址参数里传递分类id的url变量名 <script language=javascript> function doposta(a){ document.getElementById("dowhat").value=a; myform.submit(); } </script> : <input name="cnnn" type="text" id="cnnn" value="cid" size="20" /> (一般不用改,默认就行)<br /> 当前模板里的当前频道里,url地址参数里传递频道id的url变量名 <script language="JavaScript" type="text/javascript"> function doposta(a){ document.getElementById("dowhat").value=a; myform.submit(); } </script> <script language="JavaScript" type="text/javascript"> function doposta(a){ document.getElementById("dowhat").value=a; myform.submit(); } </script> <script language="JavaScript" type="text/javascript">function doposta(a){ document.getElementById("dowhat").value=a; myform.submit(); } </script> : <input name="cnnnn" type="text" id="cnnnn" value="id" size="20" /> (一般不用改,默认就行)<br /></td> </tr> <tr bgcolor="#EDF8FE"> <td width="61" height="51" bgcolor="#CCCCCC"><input type="hidden" id="len1" name="len1" value="<%=iiiyy%>" /> <input type="hidden" id="sys_content_type" name="sys_content_type" value="<%=sys_content_type%>" /> <input type="hidden" id="isqiye" name="isqiye" value="<%=request("isqiye")%>" /> <input type="hidden" id="dowhat" name="dowhat" value="0" /></td> <td width="640" align="left" valign="middle" bgcolor="#EDF8FE"><input class="Button" type="button" value="生成列表式单篇文章的htm页" onclick="doposta(7)" /> <br /></td> </tr> </table> <br /> <table height="90" width="705" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999"> <tr> <td height="30" align="center" class="adminth"><span class="STYLE2">生成其他 </span></td> </tr> <tr> <td height="15" align="center" bgcolor="#EDF8FE"><br /> <input class="Button" type="button" value="生成整站首页的htm页" onclick="doposta(9)" /> <br /> <% dim connhtm function openconnhtm() ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&nd_ttxa_mdb) Set connhtm = Server.CreateObject("ADODB.Connection") connhtm.open ConnStr If Err Then Err.Clear Set connhtm = Nothing Response.Write "数据库连接出错,请检查Config.asp文件中的数据库参数设置。" Response.End End If end function function closeconnhtm() on error resume next connhtm.close set connhtm=nothing end function '=============a3a call openconnhtm() set rshtm2=server.CreateObject("adodb.recordset") rshtm2.open "select count(*) from ND_htm_hrefs_cache where is_htmed='1'",connhtm,1,1 if not rshtm2.eof then have_htmedok_num=rshtm2(0) end if rshtm2.close set rshtm2=nothing set rshtm2=server.CreateObject("adodb.recordset") rshtm2.open "select count(*) from ND_htm_hrefs_cache",connhtm,1,1 if not rshtm2.eof then now_htma_pos=rshtm2(0) end if rshtm2.close set rshtm2=nothing call closeconnhtm() '=============a3a if (have_htmedok_num<>now_htma_pos) then %> <input class="Button" type="button" value="继续上次生成整站所有htm页的进度来继续生成" onclick="doposta(11)" /> <input class="Button" type="button" value="重新生成整站所有页的htm页" onclick="doposta(10)" /> <%else%> <input class="Button" type="button" value="重新生成整站所有页的htm页" onclick="doposta(10)" /> <% end if %> <br /> <br /></td> </tr> <tr> <td height="15" align="left" bgcolor="#EDF8FE"><strong>注意:修改某东西后,此时如果生成某些htm页后其页面内容未得到对应的刷新,<br /> 请使用"重新生成整站所有页的htm页"这个功能</strong></td> </tr> </table> <br /><br /><br /><br /> </form> </div> <script language=javascript> AJAXfade(1,'l_list') </script>